home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / GRADE AVERAGING.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  37 lines
  1. 1  HOME : VTAB 8: HTAB 10: PRINT "**********************"
  2. 2  HTAB 10: PRINT "*                    *"
  3. 3  HTAB 10: PRINT "*  GRADE  AVERAGING  *"
  4. 4  HTAB 10: PRINT "*     MADE EASY      *"
  5. 5  HTAB 10: PRINT "*  BY SCOTT PARRILL  *"
  6. 6  HTAB 10: PRINT "*   COPYRIGHT (C)    *"
  7. 7  HTAB 10: PRINT "* BY MICROSPARC, INC *"
  8. 8  HTAB 10: PRINT "* LINCOLN, MA  01773 *"
  9. 9  HTAB 10: PRINT "*                    *"
  10. 10  HTAB 10: PRINT "**********************"
  11. 50  FOR I = 1 TO 3000: NEXT I: CLEAR 
  12. 60  HOME 
  13. 70  PRINT "GIVE THE POINTS REQUIRED FOR EACH POINT ON THE GRADING SCALE AS ASKED FOR (DO   NOT USE THE '%' KEY!)"
  14. 80  INPUT "HIGHEST 'B'";HB
  15. 90  INPUT "HIGHEST 'C'";HC
  16. 100  INPUT "HIGHEST 'D'";HD
  17. 110  INPUT "HIGHEST 'F'";HF
  18. 120  HOME 
  19. 130  PRINT "WHAT IS THE STUDENT'S NAME";: INPUT SN$: PRINT : PRINT 
  20. 140  PRINT "WHAT ARE THE GRADES THAT YOU WANT       AVERAGED?  (PRESS 'RETURN' ONCE AFTER   EACH GRADE AND TWICE AT THE END.)";: PRINT 
  21. 150  INPUT G$
  22. 160  IF G$ = ""  THEN 200
  23. 170 G =  VAL(G$)
  24. 180 GT = GT +G:N = N +1
  25. 190  GOTO 150
  26. 200 GA = GT/N
  27. 210  IF GA = 0  THEN GL$ = "0": GOTO 270
  28. 220  IF GA >HB +.5  THEN GL$ = "A": GOTO 270
  29. 230  IF GA >HC +.5  AND GA < = HB +.5  THEN GL$ = "B": GOTO 270
  30. 240  IF GA >HD +.5  AND GA < = HC +.5  THEN GL$ = "C": GOTO 270
  31. 250  IF GA >HF +.5  AND GA < = HD +.5  THEN GL$ = "D": GOTO 270
  32. 260  IF GA <HF +.5  AND GA < >0  THEN GL$ = "F"
  33. 270  PRINT : PRINT : PRINT SN$;"'S GRADE IS ";GL$;"."
  34. 280  PRINT "THE GRADE AVERAGE IS ";GA;"."
  35. 290 N = 0:GT = 0:
  36. 300  PRINT : PRINT : PRINT "WOULD YOU LIKE TO DO ANOTHER SET (Y/N)";
  37. 310  INPUT A$: IF A$ = "Y"  THEN 120